SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TTLETC_ANUL_I01]  
/*-------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                --*/  
/*---Cliente              : OFISIS                 --*/  
/*---Sistema              : Tesoreria                  --*/  
/*---M÷dulo               : Empresa                    --*/  
/*---Programa             : Anulaci¸n Documento Cliente--*/  
/*---       CTAS POR COBRAR        --*/  
/*---Script               : TTLETC_ANUL.sql            --*/  
/*---Nombre SP            : SP_TTLETC_ANUL_I01         --*/  
/*---Desarrollado por     : Eduardo Vivar Pomiano      --*/  
/*---Fecha Creaci÷n       : 29/01/2000                 --*/  
/*---Base Datos           : Microsoft Sql Server       --*/  
/*---Versi÷n              : 7.0                        --*/  
/*---Invoca a SP          :                            --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/    
/*---Modificado 1 por     : Maribel Julca Rodriguez      --*/    
/*---Fecha Modificaci©n   : 20/04/2005                   --*/     
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA Y CO_USUA_MODI                           --*/    
/*-------------------------------------------------------*/    
  
/*-------------------------------------------------------*/  
/*---Comentarios                                       --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Drop Proc SP_TTLETC_ANUL_I01                      --*/  
/*---Grant all on SP_TTLETC_ANUL_I01 to public         --*/   
/*---SP_TTLETC_ANUL_I01                                --*/  
/*-------------------------------------------------------*/  
 @ISCO_EMPR       TD_VC_002,   
 @ISCO_USUA_MODI  TD_VC_008_USUA,  
 @ISNU_LETR_CLIE  TD_VC_020,  
 @ISCO_CLIE   TD_VC_020,  
 @ISCO_TIPO_OPER  TD_VC_003,  
 @IDFE_ANUL       TD_DT_001
	As
Declare  
    @VSCO_TIPO_INAN TD_VC_003,     
    @VSST_GEAS_ANUL TD_VC_001,  
    @VSCO_TIPO_OPE1 TD_VC_003  
  
 Begin Tran SP_TTDOCP_ANUL_D01  
   
    SELECT @VSCO_TIPO_INAN = CO_TIPO_OPER, @VSST_GEAS_ANUL = ST_GEAS_ANUL  
    FROM   TMPARA_TESO   
    WHERE  CO_EMPR = @ISCO_EMPR  
  
    If @VSST_GEAS_ANUL = 'N'  
       Select @VSCO_TIPO_OPE1 = @VSCO_TIPO_INAN  
    Else      
      Select @VSCO_TIPO_OPE1 = @ISCO_TIPO_OPER   
  
    Update TMLETR_CLIE   
    Set    CO_ESTA_DOCU = 'ANU', CO_TIPO_OPER = @VSCO_TIPO_OPE1,
		   CO_USUA_MODI = @ISCO_USUA_MODI,  
		   FE_USUA_MODI = GETDATE()    
    Where  CO_EMPR = @ISCO_EMPR  
        And NU_LETR_CLIE = @ISNU_LETR_CLIE  
  
    If @@error <> 0  
       Begin  
         Rollback tran  
         Return  
       End      
  
    Insert TTLETC_ANUL ( CO_EMPR, NU_LETR_CLIE, CO_CLIE,CO_TIPO_OPER,  
       FE_ANUL, ST_CONT, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)  
    Values ( @ISCO_EMPR, @ISNU_LETR_CLIE,@ISCO_CLIE, @VSCO_TIPO_OPE1,  
          @IDFE_ANUL, 'N', @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE() )   
  
    If @@error <> 0  
       Begin  
         Rollback tran  
         Return  
       End      
  
Commit Tran  
  
/*-------------------------- Fin ------------------------------*/


GO
